
C:\PROGRA~1\DTEV70\SYN9_C~1>fc ar6200.dbl ar6200.dbl_before
Comparing files AR6200.DBL and AR6200.DBL_BEFORE
***** AR6200.DBL
;==Changes==============================================================;
; 04/24/2007 lso - adjust for Syn9 requirements
; 09/10/1996 tah - Clear detail balance on customer break.
***** AR6200.DBL_BEFORE
;==Changes==============================================================;
; 09/10/1996 tah - Clear detail balance on customer break.
*****

***** AR6200.DBL
        find_status     ,d1             ; status of find operation
        idecml          ,d2             ; integer amount work area
        lstcus          ,d8             ; current customer number
***** AR6200.DBL_BEFORE
        find_status     ,d1             ; status of find operation
        lstcus          ,d8             ; current customer number
*****

***** AR6200.DBL
                aro_cust = scr_strcus
                idecml = 8
                if (scr_strcus.eq.0) idecml = 2
                case scr_dtlseq of
***** AR6200.DBL_BEFORE
                aro_cust = scr_strcus
                decml = 8
                if (scr_strcus.eq.0) decml = 2
                case scr_dtlseq of
*****

***** AR6200.DBL
                  begincase
                  'R': xcall db_find (aropen_chan,aro_key(1:idecml),0,'M',,,opcde)
                  'D': xcall db_find (aropen_chan,aro_key(1:idecml),1,'M',,,opcde)
                  endcase
***** AR6200.DBL_BEFORE
                  begincase
                  'R': xcall db_find (aropen_chan,aro_key(1:decml),0,'M',,,opcde)
                  'D': xcall db_find (aropen_chan,aro_key(1:decml),1,'M',,,opcde)
                  endcase
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc cc2400l.dbl cc2400l.dbl_before
Comparing files CC2400L.DBL and CC2400L.DBL_BEFORE
***** CC2400L.DBL
                  'END':        exitloop
                  'DELETE':     begin
                                opcde = TRUE
                                  if (ut_delete.eq.'Y') xcall confirm (opcde,2)
***** CC2400L.DBL_BEFORE
                  'END':        exitloop
                  'DELETE':     begin                     opcde = TRUE
                                  if (ut_delete.eq.'Y') xcall confirm (opcde,2)
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc cm7100.dbl cm7100.dbl_before
Comparing files CM7100.DBL and CM7100.DBL_BEFORE
***** CM7100.DBL
                ,a*     @1,     'MAIN CLIENT:'
        legst   ,a8     @13
                ,a*     @22,    'TO'
        legen   ,a8     @25

***** CM7100.DBL_BEFORE
                ,a*     @1,     'MAIN CLIENT:'
        legst   ,a8     @12
                ,a*     @21,    'TO'
        legen   ,a8     @24

*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc dsread.dbl dsread.dbl_before
Comparing files DSREAD.DBL and DSREAD.DBL_BEFORE
***** DSREAD.DBL
;==Function=============================================================;
;       ds_read         Read a document record into 'dsr_data'
;==Changes==============================================================;
***** DSREAD.DBL_BEFORE
;==Function=============================================================;
;       ds_read         Read a compressed document into 'dsr_data'
;==Changes==============================================================;
*****

***** DSREAD.DBL
            clear dsr_data
            xcall u_message ('Record number ' + %string(a_recno) + ' not found.')
          end
***** DSREAD.DBL_BEFORE
            clear dsr_data
            xcall u_message ('Record not found...')
            xcall u_message (a_recno)
          end
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc fa6000.dbl fa6000.dbl_before
Comparing files FA6000.DBL and FA6000.DBL_BEFORE
***** FA6000.DBL
        osalamt ,a13    @52
                ,a*     @69,    'YTD Units'
        ouytd   ,a9     @81
***** FA6000.DBL_BEFORE
        osalamt ,a13    @52
                ,a13    @69,    'YTD Units'
        ouytd   ,a9     @81
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc files.dbl files.dbl_before
Comparing files FILES.DBL and FILES.DBL_BEFORE
***** FILES.DBL
;==Changes==============================================================;
; 04/19/2007 lso - change for Syn v9 key_seq
; 01/31/2001 tah - Changes for new SMCTRL file.
***** FILES.DBL_BEFORE
;==Changes==============================================================;
; 01/31/2001 tah - Changes for new SMCTRL file.
*****

***** FILES.DBL
          key_mod       ,a7     @work_o+5
          key_seq       ,a8     @work_o+12
        work_version    ,a10                    ; DBL version
***** FILES.DBL_BEFORE
          key_mod       ,a7     @work_o+5
          key_seq       ,a9     @work_o+12
        work_version    ,a10                    ; DBL version
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc forecast.dbl forecast.dbl_before
Comparing files FORECAST.DBL and FORECAST.DBL_BEFORE
***** FORECAST.DBL
;==Changes==============================================================;
; 4/19/2007 lso - Change for Syn9, Alpha/beta work area from 18 to 2
;=======================================================================;
***** FORECAST.DBL_BEFORE
;==Changes==============================================================;
;=======================================================================;
*****

***** FORECAST.DBL
        npts            ,d3             ; Number of data points
        pa              ,d2             ; Alpha work area
        pb              ,d2             ; Beta work area
        ses             ,[128]d12.4     ; Single exponential smoothed data
***** FORECAST.DBL_BEFORE
        npts            ,d3             ; Number of data points
        pa              ,d18.4          ; Alpha work area
        pb              ,d18.4          ; Beta work area
        ses             ,[128]d12.4     ; Single exponential smoothed data
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc in2300.dbl in2300.dbl_before
Comparing files IN2300.DBL and IN2300.DBL_BEFORE
***** IN2300.DBL
;==Changes==============================================================;
; 04.24.2007 lso - adjust for syn9 requirements
; 08/10/2006 tfc - make sure item desc displays
; 06/12/2001 tah - Add code for company switching.
***** IN2300.DBL_BEFORE
;==Changes==============================================================;
; 08/10/2006 tfc make sure item desc displays
; 06/12/2001 tah - Add code for company switching.
*****

***** IN2300.DBL
            xcall message (DTEIN_INK)
            xcall i_init (inp_wind_no,,,'ITEM')
            xcall i_next (inp_wind_no,dtb_setname,"ITEM")
***** IN2300.DBL_BEFORE
            xcall message (DTEIN_INK)
            xcall i_init (inp_wind_no,,'ITEM')
            xcall i_next (inp_wind_no,dtb_setname,"ITEM")
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc in2700.dbl in2700.dbl_before
Comparing files IN2700.DBL and IN2700.DBL_BEFORE
***** IN2700.DBL
;==Changes==============================================================;
; 04/24/2007 lso - adjust %int for Syn9 requirements
; 01/06/1997 tah - Add pricing by item group.
***** IN2700.DBL_BEFORE
;==Changes==============================================================;
; 01/06/1997 tah - Add pricing by item group.
*****

***** IN2700.DBL
        to_qty          ,[25]d6         ; array for to quantities
        u_costs         ,a27            ; unit costs
          u_cost        ,[3]d9.3 @u_costs       ; Average,Last,Standard
***** IN2700.DBL_BEFORE
        to_qty          ,[25]d6         ; array for to quantities
        u_costs         ,d27            ; unit costs
          u_cost        ,[3]d9.3 @u_costs       ; Average,Last,Standard
*****

***** IN2700.DBL
          begincase
          'S':  unit_price[max] = sale_price[%int(inp_price[price_level])]
          'M':  unit_price[max] = inl_lcost +
***** IN2700.DBL_BEFORE
          begincase
          'S':  unit_price[max] = sale_price[inp_price[price_level]]
          'M':  unit_price[max] = inl_lcost +
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc in6250.dbl in6250.dbl_before
Comparing files IN6250.DBL and IN6250.DBL_BEFORE
***** IN6250.DBL
;==Changes==============================================================;
; 04/24/2007 lso - adjust %int for Syn9 requirements
;=======================================================================;
***** IN6250.DBL_BEFORE
;==Changes==============================================================;
;=======================================================================;
*****

***** IN6250.DBL
          begincase
          'S': unit_price[ndx] = inl_price[%int(inp_price[ndx])]
          'M': unit_price[ndx] = lcost + (lcost * inp_price[ndx])
***** IN6250.DBL_BEFORE
          begincase
          'S': unit_price[ndx] = inl_price[inp_price[ndx]]
          'M': unit_price[ndx] = lcost + (lcost * inp_price[ndx])
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc in6606.dbl in6606.dbl_before
Comparing files IN6606.DBL and IN6606.DBL_BEFORE
***** IN6606.DBL
;==Changes==============================================================;
; 04/24/2007 lso - Adjust for Syn9 requirements
; 01/06/1997 tah - Print ranking.
***** IN6606.DBL_BEFORE
;==Changes==============================================================;
; 01/06/1997 tah - Print ranking.
*****

***** IN6606.DBL
          pri_catlg2    ,a3     @prt_line+40
          pri_pagefr    ,a4     @prt_line+48
          pri_pageto    ,a5     @prt_line+52

***** IN6606.DBL_BEFORE
          pri_catlg2    ,a3     @prt_line+40
          pri_pagefr    ,a4     @prt_line+49
          pri_pageto    ,a5     @prt_line+53

*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc iniprc.dbl iniprc.dbl_before
Comparing files INIPRC.DBL and INIPRC.DBL_BEFORE
***** INIPRC.DBL
;==Changes==============================================================;
; 04/24/2007 lso - adjust for syn9 requirements, u_cost as a and %int
; 02/11/1999 tah - Added discount percent pass back to program.
***** INIPRC.DBL_BEFORE
;==Changes==============================================================;
; 02/11/1999 tah - Added discount percent pass back to program.
*****

***** INIPRC.DBL
        tot_price       ,d10.3          ; Total line item price
        u_costs         ,a27            ; Unit costs
          u_cost        ,[3]d9.3 @u_costs       ; (Average,Last,Standard)
***** INIPRC.DBL_BEFORE
        tot_price       ,d10.3          ; Total line item price
        u_costs         ,d27            ; Unit costs
          u_cost        ,[3]d9.3 @u_costs       ; (Average,Last,Standard)
*****

***** INIPRC.DBL
                  begincase
                  'S': item_price = a_spric(%int(inp_price[ndx2]))    ;sales price
                  'M': begin                            ; mark-up on last cost
***** INIPRC.DBL_BEFORE
                  begincase
                  'S': item_price = a_spric(inp_price[ndx2])    ;sales price
                  'M': begin                            ; mark-up on last cost
*****

***** INIPRC.DBL
                          begincase
                          'S': item_price = a_spric(%int(inp_price[ndx2])) ; sales price
                          'M': begin                    ; markup of last cost
***** INIPRC.DBL_BEFORE
                          begincase
                          'S': item_price = a_spric(inp_price[ndx2]) ; sales price
                          'M': begin                    ; markup of last cost
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc inipric.dbl inipric.dbl_before
Comparing files INIPRIC.DBL and INIPRIC.DBL_BEFORE
***** INIPRIC.DBL
;==Changes==============================================================;
; 04/24/2007 lso - Adjust for Syn9 requirements
; 07/15/1998 TAH - Modify list processing for Synergy V6
***** INIPRIC.DBL_BEFORE
;==Changes==============================================================;
; 07/15/1998 TAH - Modify list processing for Synergy V6
*****

***** INIPRIC.DBL
record  sel_line                        ; selection window item
        sel_rfa         ,a6                     ; RFA
        sel_ktype       ,a1                     ; key type
***** INIPRIC.DBL_BEFORE
record  sel_line                        ; selection window item
        sel_rfa         ,d6                     ; RFA
        sel_ktype       ,a1                     ; key type
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc inpricel.dbl inpricel.dbl_before
Comparing files INPRICEL.DBL and INPRICEL.DBL_BEFORE
***** INPRICEL.DBL
;==Changes==============================================================;
; 04/24/2007 lso - adjust for syn9 requirements, %int and u_costs
;=======================================================================;
***** INPRICEL.DBL_BEFORE
;==Changes==============================================================;
;=======================================================================;
*****

***** INPRICEL.DBL
        to_qty          ,[25]d6         ; array for to quantities
        u_costs         ,a27            ; unit costs
          u_cost        ,[3]d9.3 @u_costs       ; Average,Last,Standard
***** INPRICEL.DBL_BEFORE
        to_qty          ,[25]d6         ; array for to quantities
        u_costs         ,d27            ; unit costs
          u_cost        ,[3]d9.3 @u_costs       ; Average,Last,Standard
*****

***** INPRICEL.DBL
          begincase
          'S':  unit_price[max] = sale_price[%int(inp_price[price_level])]
          'M':  unit_price[max] = inl_lcost +
***** INPRICEL.DBL_BEFORE
          begincase
          'S':  unit_price[max] = sale_price[inp_price[price_level]]
          'M':  unit_price[max] = inl_lcost +
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc oe4000l.dbl oe4000l.dbl_before
Comparing files OE4000L.DBL and OE4000L.DBL_BEFORE
***** OE4000L.DBL
;==Changes==============================================================;
; 04/24/2007 lso - Adjust for Syn9 requirements, u_costs
; 11/22/2005 lso - Add unlock oeline_chan per WSC
***** OE4000L.DBL_BEFORE
;==Changes==============================================================;
; 11/22/2005 lso - Add unlock oeline_chan per WSC
*****

***** OE4000L.DBL
        sunit_price     ,d9.3           ; standard unit price
        u_costs         ,a27            ; costs for call to calculate price
          u_cost        ,[3]d9.3 @u_costs       ; Average,Last,Standard
***** OE4000L.DBL_BEFORE
        sunit_price     ,d9.3           ; standard unit price
        u_costs         ,d27            ; costs for call to calculate price
          u_cost        ,[3]d9.3 @u_costs       ; Average,Last,Standard
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc oe4000p.dbl oe4000p.dbl_before
Comparing files OE4000P.DBL and OE4000P.DBL_BEFORE
***** OE4000P.DBL
;==Changes==============================================================;
; 04/24/2007 lso - Adjust for Syn9 requirements, u_costs
; 04/16/2004 tah - Correct upcharge to unit price.
***** OE4000P.DBL_BEFORE
;==Changes==============================================================;
; 04/16/2004 tah - Correct upcharge to unit price.
*****

***** OE4000P.DBL
        price_quantity  ,d9.3           ; pricing quantity
        u_costs         ,a27            ; costs for call to calculate price
          u_cost        ,[3]d9.3 @u_costs       ; Average,Last,Standard
***** OE4000P.DBL_BEFORE
        price_quantity  ,d9.3           ; pricing quantity
        u_costs         ,d27            ; costs for call to calculate price
          u_cost        ,[3]d9.3 @u_costs       ; Average,Last,Standard
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc oe4010l.dbl oe4010l.dbl_before
Comparing files OE4010L.DBL and OE4010L.DBL_BEFORE
***** OE4010L.DBL
;==Changes==============================================================;
; 04/24/2007 lso - Adjust for Syn9 requirements, u_costs
;=======================================================================;
***** OE4010L.DBL_BEFORE
;==Changes==============================================================;
;=======================================================================;
*****

***** OE4010L.DBL
        sunit_price     ,d9.3           ; standard unit price
        u_costs         ,a27            ; costs for call to calculate price
          u_cost        ,[3]d9.3 @u_costs       ; Average,Last,Standard
***** OE4010L.DBL_BEFORE
        sunit_price     ,d9.3           ; standard unit price
        u_costs         ,d27            ; costs for call to calculate price
          u_cost        ,[3]d9.3 @u_costs       ; Average,Last,Standard
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc oe6860.dbl oe6860.dbl_before
Comparing files OE6860.DBL and OE6860.DBL_BEFORE
***** OE6860.DBL
                    if (no_cust.lt.arc_id)
                        do begin
                        reads (work_chan,noorder,eof_work)
                           end
                        until (no_cust.ge.arc_id)
cont_eof_work,
***** OE6860.DBL_BEFORE
                    if (no_cust.lt.arc_id)
                        do reads (work_chan,noorder,eof_work) until (no_cust.ge.arc_id)
cont_eof_work,
*****

***** OE6860.DBL
print_report_totals,
      return

***** OE6860.DBL_BEFORE
print_report_totals,
        return

*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc oe9200.dbl oe9200.dbl_before
Comparing files OE9200.DBL and OE9200.DBL_BEFORE
***** OE9200.DBL
;==Changes==============================================================;
; 04/24/2007 lso - adjust for Syn9 requirements
;=======================================================================;
***** OE9200.DBL_BEFORE
;==Changes==============================================================;
;=======================================================================;
*****

***** OE9200.DBL
        in_buffer       ,a2000                  ; work file input buffer
          in_dbuffer    ,a2000  @in_buffer
        ism_file        ,a14,   'FIL:xxxxxx.eee'; open ism master file
***** OE9200.DBL_BEFORE
        in_buffer       ,a2000                  ; work file input buffer
          in_dbuffer    ,d2000  @in_buffer
        ism_file        ,a14,   'FIL:xxxxxx.eee'; open ism master file
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc oe9500.dbl oe9500.dbl_before
Comparing files OE9500.DBL and OE9500.DBL_BEFORE
***** OE9500.DBL
;==Changes==============================================================;
; 04/24/2007 lso - Adjust for Syn9 requirement, message vs u_
;=======================================================================;
***** OE9500.DBL_BEFORE
;==Changes==============================================================;
;=======================================================================;
*****

***** OE9500.DBL
        in_buffer       ,a2000          ; work file input buffer
          in_dbuffer    ,a2000  @in_buffer
        item_disc_pct   ,d6             ; item discount pct from inpric
***** OE9500.DBL_BEFORE
        in_buffer       ,a2000          ; work file input buffer
          in_dbuffer    ,d2000  @in_buffer
        item_disc_pct   ,d6             ; item discount pct from inpric
*****

***** OE9500.DBL
        work_edsc       ,[4]a60         ; work area for extended description
        work_invkey     ,a33
         work_i_type    ,a1     @work_invkey
***** OE9500.DBL_BEFORE
        work_edsc       ,[4]a60         ; work area for extended description
        work_invkey     ,a31
         work_i_type    ,a1     @work_invkey
*****

***** OE9500.DBL
            writes (worder_chan,oehedr) ; write header work record
            xcall message (opcde,D_ERROR)

***** OE9500.DBL_BEFORE
            writes (worder_chan,oehedr) ; write header work record
            xcall u_message (opcde)

*****

***** OE9500.DBL
        ;;;;;;; Translate old id number to new id number
        xcall message (OEM_CUST,D_ERROR)
        
***** OE9500.DBL_BEFORE
        ;;;;;;; Translate old id number to new id number
        xcall u_message (OEM_CUST)
        
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc oeihist.dbl oeihist.dbl_before
Comparing files OEIHIST.DBL and OEIHIST.DBL_BEFORE
***** OEIHIST.DBL
;==Changes==============================================================;
; 04/24/2007 lso - Adjust for Syn9 requirements
; 07/14/1998 TAH - Modify list processing for Synergy V6
***** OEIHIST.DBL_BEFORE
;==Changes==============================================================;
; 07/14/1998 TAH - Modify list processing for Synergy V6
*****

***** OEIHIST.DBL
record  sel_line                        ; selection window item
        sel_rfa         ,a6                     ; RFA of record
        sel_order       ,d6                     ; order number
***** OEIHIST.DBL_BEFORE
record  sel_line                        ; selection window item
        sel_rfa         ,d6                     ; RFA of record
        sel_order       ,d6                     ; order number
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc oeprice.dbl oeprice.dbl_before
Comparing files oeprice.dbl and OEPRICE.DBL_BEFORE
***** oeprice.dbl
;==Changes==============================================================;
; 04/24/2007 lso - adjust for syn9 requirements
;=======================================================================;
***** OEPRICE.DBL_BEFORE
;==Changes==============================================================;
;=======================================================================;
*****

***** oeprice.dbl
        sunit_price     ,d9.3           ; standard unit price
        u_costs         ,a27            ; costs for call to calculate price
          u_cost        ,[3]d9.3 @u_costs       ; Average,Last,Standard
***** OEPRICE.DBL_BEFORE
        sunit_price     ,d9.3           ; standard unit price
        u_costs         ,d27            ; costs for call to calculate price
          u_cost        ,[3]d9.3 @u_costs       ; Average,Last,Standard
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc po4320.dbl po4320.dbl_before
Comparing files po4320.dbl and PO4320.DBL_BEFORE
***** po4320.dbl
;==Changes==============================================================;
; 04/24/2007 lso - adjust for Syn9 requirements
; 06/26/2006 tfc - use bin from po4300 if sent
***** PO4320.DBL_BEFORE
;==Changes==============================================================;
; 06/26/2006 tfc - use bin from po4300 if sent
*****

***** po4320.dbl
        set_name        ,a6             ; input set name
        slno_key        ,a35
          slno_comp     ,a2     @slno_key
***** PO4320.DBL_BEFORE
        set_name        ,a6             ; input set name
        slno_key        ,a25
          slno_comp     ,a2     @slno_key
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc po6000.dbl po6000.dbl_before
Comparing files PO6000.DBL and PO6000.DBL_BEFORE
***** PO6000.DBL
;==Changes==============================================================;
; 04/24/2007 lso - adjust for Syn9 requirements
; 01/08/2007 - esc Add new Reference to function the same as Remarks
***** PO6000.DBL_BEFORE
;==Changes==============================================================;
; 01/08/2007 - esc Add new Reference to function the same as Remarks
*****

***** PO6000.DBL
                        ,a*     @34,    'Wt:'
        prweight        ,a7     @37
                        ,a*     @46,    'Tot Wt:'
***** PO6000.DBL_BEFORE
                        ,a*     @34,    'Wt:'
        prweight        ,a7     @36
                        ,a*     @46,    'Tot Wt:'
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc poihist.dbl poihist.dbl_before
Comparing files POIHIST.DBL and POIHIST.DBL_BEFORE
***** POIHIST.DBL
;==Changes==============================================================;
; 04/24/2007 lso - Adjust for Syn9 requirements
; 07/14/1998 TAH - Modify list processing for Synergy V6
***** POIHIST.DBL_BEFORE
;==Changes==============================================================;
; 07/14/1998 TAH - Modify list processing for Synergy V6
*****

***** POIHIST.DBL
record  sel_line                        ; selection window item
        sel_rfa         ,a6                     ; RFA
        sel_order       ,d6                     ; order number
***** POIHIST.DBL_BEFORE
record  sel_line                        ; selection window item
        sel_rfa         ,d6                     ; RFA
        sel_order       ,d6                     ; order number
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc pr6500.dbl pr6500.dbl_before
Comparing files pr6500.dbl and PR6500.DBL_BEFORE
***** pr6500.dbl
        prov_sid        ,a15    @54
        prov_sgrs       ,a10    @69
        prov_swt        ,a9     @82

        prov_ccd        ,a3     @92
        prov_cnam       ,a10    @97
        prov_cgrs       ,a10    @108
        prov_cwt        ,a9     @118

***** PR6500.DBL_BEFORE
        prov_sid        ,a15    @54
        prov_sgrs       ,a10    @67
        prov_swt        ,a9     @80

        prov_ccd        ,a3     @90
        prov_cnam       ,a10    @95
        prov_cgrs       ,a10    @106
        prov_cwt        ,a9     @116

*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc qs4000l.dbl qs4000l.dbl_before
Comparing files QS4000L.DBL and QS4000L.DBL_BEFORE
***** QS4000L.DBL
;==Changes==============================================================;
; 04/24/2007 lso - Adjust for Syn9 requirements
;=======================================================================;
***** QS4000L.DBL_BEFORE
;==Changes==============================================================;
;=======================================================================;
*****

***** QS4000L.DBL
        sunit_price     ,d9.3           ; standard unit price
        u_costs         ,a27            ; costs for call to calculate price
          u_cost        ,[3]d9.3 @u_costs       ; Average,Last,Standard
***** QS4000L.DBL_BEFORE
        sunit_price     ,d9.3           ; standard unit price
        u_costs         ,d27            ; costs for call to calculate price
          u_cost        ,[3]d9.3 @u_costs       ; Average,Last,Standard
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc read.dbl read.dbl_before
Comparing files READ.DBL and READ.DBL_BEFORE
***** READ.DBL
;==Changes==============================================================;
; 04/19/2007 lso - change for Syn v9 f_message
;=======================================================================;
***** READ.DBL_BEFORE
;==Changes==============================================================;
;=======================================================================;
*****

***** READ.DBL
              'S': begin
                    xcall gettxt (DTER_LOK,f_message)
                    xcall e_sect (f_message,D_INFO)
                    rel_lockd = TRUE
                   end
***** READ.DBL_BEFORE
              'S': begin
                    xcall e_sect (dter_lok,D_INFO)
                     rel_lockd = TRUE
                   end
*****

***** READ.DBL
                      begin
                        xcall gettxt (DTER_LOK,f_message)
                        xcall e_sect (f_message,D_INFO)
                        rel_lockd = TRUE
***** READ.DBL_BEFORE
                      begin
                        xcall e_sect (dter_lok,D_INFO)
                        rel_lockd = TRUE
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc sm4000.dbl sm4000.dbl_before
Comparing files SM4000.DBL and SM4000.DBL_BEFORE
***** SM4000.DBL
;==Changes==============================================================;
; 04/24/2007 lso - Adjust for Syn9 requirements, buffer from d to a field
;=======================================================================;
***** SM4000.DBL_BEFORE
;==Changes==============================================================;
;=======================================================================;
*****

***** SM4000.DBL
        in_buffer       ,a2000                  ; work file input buffer
        ism_file        ,a14,   'FIL:xxxxxx.eee'; open ism master file
***** SM4000.DBL_BEFORE
        in_buffer       ,a2000                  ; work file input buffer
          in_dbuffer    ,d2000  @in_buffer
        ism_file        ,a14,   'FIL:xxxxxx.eee'; open ism master file
*****

***** SM4000.DBL
        out_buffer      ,a2000                  ; work file output buffer
        recs_read       ,d6
***** SM4000.DBL_BEFORE
        out_buffer      ,a2000                  ; work file output buffer
          out_dbuffer   ,d2000  @out_buffer
        recs_read       ,d6
*****

***** SM4000.DBL
        in_buffer       ,a2000                  ; work file input buffer
        justify         ,a2                     ; justify command
***** SM4000.DBL_BEFORE
        in_buffer       ,a2000                  ; work file input buffer
          in_dbuffer    ,d2000  @in_buffer
        justify         ,a2                     ; justify command
*****

***** SM4000.DBL
        out_buffer      ,a2000                  ; work file output buffer
        posb            ,d2                     ; work area for %instr
***** SM4000.DBL_BEFORE
        out_buffer      ,a2000                  ; work file output buffer
          out_dbuffer   ,d2000  @out_buffer
        posb            ,d2                     ; work area for %instr
*****

***** SM4000.DBL
                            onerror not_dec
                            ^d(out_buffer(dtefldstart[ndx]:dtefldlen[ndx])) =
                            & in_buffer(forfldstart[ndx]:forfldlen[ndx])
***** SM4000.DBL_BEFORE
                            onerror not_dec
                            out_dbuffer(dtefldstart[ndx]:dtefldlen[ndx]) =
                            & in_buffer(forfldstart[ndx]:forfldlen[ndx])
*****

***** SM4000.DBL
                            onerror not_dec
                            ^d(out_buffer(dtefldstart[ndx]:dtefldlen[ndx])) =
                            & constant_d[ndx]
***** SM4000.DBL_BEFORE
                            onerror not_dec
                            out_dbuffer(dtefldstart[ndx]:dtefldlen[ndx]) =
                            & constant_d[ndx]
*****

***** SM4000.DBL
                            onerror not_dec
                            ^d(out_buffer(dtefldstart[ndx]:dtefldlen[ndx])) =
                            & constant_d[ndx]
***** SM4000.DBL_BEFORE
                            onerror not_dec
                            out_dbuffer(dtefldstart[ndx]:dtefldlen[ndx]) =
                            & constant_d[ndx]
*****

***** SM4000.DBL
                     'A': begin                         ; alpha
                             out_buffer(dtefldstart[ndx]:dtefldlen[ndx]) =
                             &  in_buffer(forfldstart[ndx]:forfldlen[ndx])
                          end
***** SM4000.DBL_BEFORE
                     'A': begin                         ; alpha
                            out_buffer(dtefldstart[ndx]:dtefldlen[ndx]) =
                            &  in_dbuffer(forfldstart[ndx]:forfldlen[ndx])
                          end
*****

***** SM4000.DBL
                     'D': begin                         ; date
                             onerror not_dec
                             date = ^d(in_buffer(forfldstart[ndx]:forfldlen[ndx]))
                             call date_format
                             offerror
                          end
***** SM4000.DBL_BEFORE
                     'D': begin                         ; date
                            onerror not_dec
                            date = in_dbuffer(forfldstart[ndx]:forfldlen[ndx])
                            call date_format
                            offerror
                          end
*****

***** SM4000.DBL
                     'N': begin                         ; number
                             onerror not_dec
                             ^d(out_buffer(dtefldstart[ndx]:dtefldlen[ndx])) =
                             &  ^d(in_buffer(forfldstart[ndx]:forfldlen[ndx]))
                             offerror
                          end
***** SM4000.DBL_BEFORE
                     'N': begin                         ; number
                            onerror not_dec
                            out_dbuffer(dtefldstart[ndx]:dtefldlen[ndx]) =
                            & in_dbuffer(forfldstart[ndx]:forfldlen[ndx])
                            offerror
                          end
*****

***** SM4000.DBL
                            out_buffer(dtefldstart[ndx]:dtefldlen[ndx]) =
                            &  in_buffer(forfldstart[ndx]:forfldlen[ndx]) [left]
                            call right
***** SM4000.DBL_BEFORE
                            out_buffer(dtefldstart[ndx]:dtefldlen[ndx]) =
                            & in_dbuffer(forfldstart[ndx]:forfldlen[ndx]) [left]
                            call right
*****

***** SM4000.DBL
                            onerror not_dec
                            date = ^d(in_buffer(forfldstart[ndx]:forfldlen[ndx]))
                            call date_format
***** SM4000.DBL_BEFORE
                            onerror not_dec
                            date = in_dbuffer(forfldstart[ndx]:forfldlen[ndx])
                            call date_format
*****

***** SM4000.DBL
                            onerror not_dec
                            ^d(out_buffer(dtefldstart[ndx]:dtefldlen[ndx])) =
                            &  ^d(in_buffer(forfldstart[ndx]:forfldlen[ndx]))
                            call align
***** SM4000.DBL_BEFORE
                            onerror not_dec
                            out_dbuffer(dtefldstart[ndx]:dtefldlen[ndx]) =
                            & in_dbuffer(forfldstart[ndx]:forfldlen[ndx])
                            call align
*****

***** SM4000.DBL
                      'A': begin                                ; alpha/num
                             out_buffer(dtefldstart[ndx]:dtefldlen[ndx]) =
                             &   wrk_string(1,dtefldlen[ndx])
                             call right
                           end
***** SM4000.DBL_BEFORE
                      'A': begin                                ; alpha/num
                            out_buffer(dtefldstart[ndx]:dtefldlen[ndx]) =
                            &   wrk_string(1,dtefldlen[ndx])
                            call right
                           end
*****

***** SM4000.DBL
                      'D': begin                                ; date
                             date = wrk_decimal
                             call date_format
                           end
***** SM4000.DBL_BEFORE
                      'D': begin                                ; date
                            date = wrk_decimal
                            call date_format
                           end
*****

***** SM4000.DBL
                      'N': begin                                ; number
                             ^d(out_buffer(dtefldstart[ndx]:dtefldlen[ndx])) =
                             &   wrk_decimal
                             call align
                           end
***** SM4000.DBL_BEFORE
                      'N': begin                                ; number
                            out_dbuffer(dtefldstart[ndx]:dtefldlen[ndx]) =
                            &   wrk_decimal
                            call align
                           end
*****

***** SM4000.DBL
                     'N': begin                         ; number
                            ^d(out_buffer(dtefldstart[ndx]:dtefldlen[ndx])) =
                            &   wrk_decimal
***** SM4000.DBL_BEFORE
                     'N': begin                         ; number
                            out_dbuffer(dtefldstart[ndx]:dtefldlen[ndx]) =
                            &   wrk_decimal
*****

***** SM4000.DBL
                     'N': begin                         ; number
                            ^d(out_buffer(dtefldstart[ndx]:dtefldlen[ndx])) =
                            &   wrk_decimal
***** SM4000.DBL_BEFORE
                     'N': begin                         ; number
                            out_dbuffer(dtefldstart[ndx]:dtefldlen[ndx]) =
                            &   wrk_decimal
*****

***** SM4000.DBL
resume_error,
                    clear ^d(out_buffer(dtefldstart[ndx]:dtefldlen[ndx]))
                   end
***** SM4000.DBL_BEFORE
resume_error,
                    clear out_dbuffer(dtefldstart[ndx]:dtefldlen[ndx])
                   end
*****

***** SM4000.DBL
                mult = mult_adjust(1:mult+1)
                ^d(out_buffer(dtefldstart[ndx]:dtefldlen[ndx])) =
                &       ^d(out_buffer(dtefldstart[ndx]:dtefldlen[ndx])) * mult
              end
***** SM4000.DBL_BEFORE
                mult = mult_adjust(1:mult+1)
                out_dbuffer(dtefldstart[ndx]:dtefldlen[ndx]) =
                &       out_dbuffer(dtefldstart[ndx]:dtefldlen[ndx]) * mult
              end
*****

***** SM4000.DBL
                mult = mult_adjust(1:-mult+1)
                ^d(out_buffer(dtefldstart[ndx]:dtefldlen[ndx])) =
                &       ^d(out_buffer(dtefldstart[ndx]:dtefldlen[ndx])) / mult
              end
***** SM4000.DBL_BEFORE
                mult = mult_adjust(1:-mult+1)
                out_dbuffer(dtefldstart[ndx]:dtefldlen[ndx]) =
                &       out_dbuffer(dtefldstart[ndx]:dtefldlen[ndx]) / mult
              end
*****

***** SM4000.DBL
                end
              ^d(out_buffer(dtefldstart[ndx]:dtefldlen[ndx])) = date
             end
***** SM4000.DBL_BEFORE
                end
              out_dbuffer(dtefldstart[ndx]:dtefldlen[ndx]) = date
             end
*****

***** SM4000.DBL
                endcase
              ^d(out_buffer(dtefldstart[ndx]:dtefldlen[ndx])) = date
             end
***** SM4000.DBL_BEFORE
                endcase
              out_dbuffer(dtefldstart[ndx]:dtefldlen[ndx]) = date
             end
*****

***** SM4000.DBL
                endcase
              ^d(out_buffer(dtefldstart[ndx]:dtefldlen[ndx])) = date
             end
***** SM4000.DBL_BEFORE
                endcase
              out_dbuffer(dtefldstart[ndx]:dtefldlen[ndx]) = date
             end
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc sm4100.dbl sm4100.dbl_before
Comparing files SM4100.DBL and SM4100.DBL_BEFORE
***** SM4100.DBL
;==Changes==============================================================;
; 04/24/2007 lso - Adjust for Syn9 requirements, buffer from d to a field
;=======================================================================;
***** SM4100.DBL_BEFORE
;==Changes==============================================================;
;=======================================================================;
*****

***** SM4100.DBL
        in_buffer       ,a2000                  ; work file input buffer
        ism_file        ,a14,   'FIL:xxxxxx.eee'; open ism master file
***** SM4100.DBL_BEFORE
        in_buffer       ,a2000                  ; work file input buffer
          in_dbuffer    ,d2000  @in_buffer
        ism_file        ,a14,   'FIL:xxxxxx.eee'; open ism master file
*****

***** SM4100.DBL
        out_buffer      ,a2000                  ; work file output buffer
        recs_read       ,d6
***** SM4100.DBL_BEFORE
        out_buffer      ,a2000                  ; work file output buffer
          out_dbuffer   ,d2000  @out_buffer
        recs_read       ,d6
*****

***** SM4100.DBL
        in_buffer       ,a2000                  ; work file input buffer
        justify         ,a2                     ; justify command
***** SM4100.DBL_BEFORE
        in_buffer       ,a2000                  ; work file input buffer
          in_dbuffer    ,d2000  @in_buffer
        justify         ,a2                     ; justify command
*****

***** SM4100.DBL
        out_buffer      ,a2000                  ; work file output buffer
        select          ,a20                    ; selection work area
***** SM4100.DBL_BEFORE
        out_buffer      ,a2000                  ; work file output buffer
          out_dbuffer   ,d2000  @out_buffer
        select          ,a20                    ; selection work area
*****

***** SM4100.DBL
                            onerror not_dec
                            ^d(out_buffer(forfldstart[ndx]:forfldlen[ndx])) =
                            & ^d(in_buffer(dtefldstart[ndx]:dtefldlen[ndx]))
                            offerror
***** SM4100.DBL_BEFORE
                            onerror not_dec
                            out_dbuffer(forfldstart[ndx]:forfldlen[ndx]) =
                            & in_buffer(dtefldstart[ndx]:dtefldlen[ndx])
                            offerror
*****

***** SM4100.DBL
                            onerror not_dec
                            wrk_decimal = ^d(in_buffer(dtefldstart[ndx]:dtefldlen[ndx]))
                            ^d(out_buffer(forfldstart[ndx]:forfldlen[ndx])) =
                            & ^d(in_buffer(dtefldstart[ndx]:dtefldlen[ndx]))
                            call right
***** SM4100.DBL_BEFORE
                            onerror not_dec
                            wrk_decimal =
                            & in_buffer(dtefldstart[ndx]:dtefldlen[ndx])
                            out_buffer(forfldstart[ndx]:forfldlen[ndx]) =
                            & in_dbuffer(dtefldstart[ndx]:dtefldlen[ndx])
                            call right
*****

***** SM4100.DBL
                            onerror not_dec
                            ^d(out_buffer(forfldstart[ndx]:forfldlen[ndx])) =
                            & ^d(in_buffer(dtefldstart[ndx]:dtefldlen[ndx]))
                            call align
***** SM4100.DBL_BEFORE
                            onerror not_dec
                            out_dbuffer(forfldstart[ndx]:forfldlen[ndx]) =
                            & in_buffer(dtefldstart[ndx]:dtefldlen[ndx])
                            call align
*****

***** SM4100.DBL
                mult = mult_adjust(1:mult+1)
                ^d(out_buffer(forfldstart[ndx]:forfldlen[ndx])) =
                &     ^d(out_buffer(forfldstart[ndx]:forfldlen[ndx])) * mult
              end
***** SM4100.DBL_BEFORE
                mult = mult_adjust(1:mult+1)
                out_dbuffer(forfldstart[ndx]:forfldlen[ndx]) =
                &       out_dbuffer(forfldstart[ndx]:forfldlen[ndx]) * mult
              end
*****

***** SM4100.DBL
                mult = mult_adjust(1:-mult+1)
                ^d(out_buffer(forfldstart[ndx]:forfldlen[ndx])) =
                &    ^d(out_buffer(forfldstart[ndx]:forfldlen[ndx])) / mult
              end
***** SM4100.DBL_BEFORE
                mult = mult_adjust(1:-mult+1)
                out_dbuffer(forfldstart[ndx]:forfldlen[ndx]) =
                &       out_dbuffer(forfldstart[ndx]:forfldlen[ndx]) / mult
              end
*****

***** SM4100.DBL
                end
              ^d(out_buffer(forfldstart[ndx]:forfldlen[ndx])) = date
             end
***** SM4100.DBL_BEFORE
                end
              out_dbuffer(forfldstart[ndx]:forfldlen[ndx]) = date
             end
*****

***** SM4100.DBL
                endcase
              ^d(out_buffer(forfldstart[ndx]:forfldlen[ndx])) = date
             end
***** SM4100.DBL_BEFORE
                endcase
              out_dbuffer(forfldstart[ndx]:forfldlen[ndx]) = date
             end
*****

***** SM4100.DBL
                endcase
              ^d(out_buffer(forfldstart[ndx]:forfldlen[ndx])) = date
             end
***** SM4100.DBL_BEFORE
                endcase
              out_dbuffer(forfldstart[ndx]:forfldlen[ndx]) = date
             end
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>fc windows.dbl windows.dbl_before
Comparing files WINDOWS.DBL and WINDOWS.DBL_BEFORE
***** WINDOWS.DBL
;==Changes==============================================================;
; 04/19/2007 lso - Changes for Syn9 for msgtextfmt ... u_message
; 12/05/2006 lso - Change lodwin file_name from a40 to a60
***** WINDOWS.DBL_BEFORE
;==Changes==============================================================;
; 12/05/2006 lso - Change lodwin file_name from a40 to a60
*****

***** WINDOWS.DBL
              end
            if (msgtextfmt.eq.'No message available') xcall u_message (%string(a_msg_no))
            if (ut_windows.eq.TRUE)
***** WINDOWS.DBL_BEFORE
              end
            if (msgtextfmt.eq.'No message available') xcall u_message (a_msg_no)
            if (ut_windows.eq.TRUE)
*****


C:\PROGRA~1\DTEV70\SYN9_C~1>
